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DECUS Program Library Write-up 


DECUS NO. 8-538 


Abstract 

INTIOH is for use with FORTRAN programs having only integer ari h 
metic, and is a substitute for the format interpreting routine of 
the PS/8 FORTRAN library. Eight pages of core are saved. A new 
format is defined for input of file names used in device independent 
input/output and chaining. 


Operating Principles 

The organization of the PS/8 FORTRAN library as a set of independ¬ 
ently loaded subroutines conserves core space by permitting the 
loading of just those routines actually needed by the user's 
program. Thus, in theory, a FORTRAN program which uses only 
integer arithmetic will not require loading of the 5 page floating 
point arithmetic routine. However, in practice, the floating 
point routine will be loaded anyway if the FORTRAN program contains 
formatted input/output statements. The reason is that the standard 
IOH routine, which is used for format interpretation, calls on the 
floating point routine, even though it will not be used in the 
execution of an all integer FORTRAN program. 

INTIOH is a substitute for the standard IOH routine of the PS/8 
FORTRAN library. The I,A,H, and X formats are implemented, but the 
E and F formats are excluded and the floating point routine is not 
requested. Integer FORTRAN programs thus gain 3 core pages from 
the reduced length of INTIOH and 5 core pages from the absence of 
the floating point routine. 


New L Format 

Another feature of INTIOH is the addition of the L format for 
alphanumeric input. The existing A format is inadequate for the 
special case of file names to be used in opening device independent 
input/output files or chaining to another program. The file name 
arguments of the IOPEN, OOPEN, and CHAIN routines must have 
exactly 6 characters. If the file name typed by the user has 
fewer than 6 characters, the remaining positions must be filled 
with zeros. The new L format for input is similar to the A format, 
except zeros rather than blanks are used to fill the remaining, 
positions when the input string is shorter than the field speci¬ 
fication. The L format for output is identical with the A format. 

The following programming sequence illustrates the use of the L 
format to open a user specified file from the system device. 

READ (1,10) XNAME 
10 FORMAT C'INPUT FILE®', L6) 

CALL IOPEN ('SYS'.XNAME) 
etc. 













Loading INTIOH 


The relocatable binary tape of INTIOH is transfered to the device 
DSK: using PIP. 

.R PIP 

*INTIOH.RL PTR:/B 

INTIOH is loaded into core when needed by explicitly naming it as 
input to the linking loader. The following example shows how a 
previously compiled integer FORTRAN program, called TEST.RL, can 
be loaded and executed. 


.R LOADER 
*TEST,INTIOH/G 

The explicit loading of INTIOH satisfies the request for the IOH 
subroutine, and thereby prevents the standard library IOH from 
being loaded. 
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GEN 10 

00O0EXT 

GFRM 

032? 

GLST 
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HR 
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PRINT 
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RRS 

1412 

RRSIGN 
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S2 

0545 

TAD I 

1400QP 

TR 
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TW 
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WRITE 
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/COPYRIGHT 1968, DIGIATAL EQUIPMENT CORP. , MAYNARD, MASS. 


/ 

/ 

/ 

/ 

/ 

/ 


VERSION I OH. V88 < FEBRUARY 15, 1969 > 

INPUT OUTPUT CONVERSION SUBROUTINE 
FOR 8K ALICS-FORTRAN SYSTEM 





/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


MODIFIED TO SAVE CORE SPACE IN PROGRAMS USING ONLY 
INTEGER VARIABLES. DELETES E AND F FORMATS FROM IOH 
AND AVOIDS CALLING FLOATING POINT SUBROUTINES. SAVES 
3 PAGES OF IOH AND THE 5 PAGES OF THE FLOATING POINT 
SUBROUTINES. ADDS L FORMAT FOR LEFT JUSTIFIED ZERO FILLED CHAf 
AS NEEDED WHEN SPECIFYING FILE NAMES. 

MODIFIED BY: A. A. CALEK AND R. C. BARRETT 
COMPUTER SCIENCE DEPARTMENT 
NORTHWESTERN UNIVERSITY 
EVANSTON, ILL 68281 

JUNE 22, 1971 
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ENTRY 
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WRITE 


J 
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THE FOLLOWING IS 
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/ 

/ IOH ERROR ROUTINES 
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0216 
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IS2 
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/IN E FORMAT 
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2214 



IS2 
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7410 



SKP 
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2241 


ERR.1, 
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DV 

/ERR1 IS ALWAYS FATAL 


0223 

7200 



CLR 




0224 

1241 



TAD 

DV 



0225 

7650 



SNA CLA 


/WAS THIS AN INPUT ERROR FROM THE 

TELETS 

0226 

7330 



CLA CLL 

CML RAR 

/YES - NON-FATAL 


0227 

1376 



TAD 

<615 
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DCA 

10 



0231 

1214 



TAD 

ERRNO 

/IOH ERROR NUMBER 


0232 

1375 



TAD 
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DCA 

SW 

/TO ERROR COMMENT 


0234 
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CALL 
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05 


ARG 
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0240 
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JMP 

RETRY 

/DO ENTIRE READ STATEMENT 

OVER 
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0241 
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DV/ 

0 


/SAVE DEVICE CODE 

©242 
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CS/ 

A2 


/INITIAL PUSH POINTER 

0243 
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PARN/ 

0 



0244 

7000 


NOP 


/CDF N 

0245 

1665 


TAD I 

WRITE# 


0246 

2265 


INC 

WRITE# 


024? 

6201 05 


JMP I 

PARN 
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0251 

0000 

CH/ 

0 



0252 

0012 

TW/ 

12 



0253 
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READ, 

BLOCK 

2 

/ENTRY POINT FOR READ 

0254 

0000 





0255 

1253 

RETRY/ 

TAD 

READ 

/SNEAK IN 

0256 

3264 


DC A 

WRITE 


025? 

1254 


TAD 

READ# 


0260 
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DCA 

WRITE# 

/SAVE SECOND RETURN WORD 

0261 

5267 
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ET 





CPAQE 4 



^262 
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10/ 
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r 0263 
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sw. 

0 


/LEFT OR RIGHT HALF OF FORMAT 

0264 
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WRITE/ 

BLOCK 

2 

/ENTRY POINT 

0265 
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0266 

7201 


CLA IAC 


/INITIALIZE SWITCH 
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ET, 
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10 
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CH 
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7 
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SW 
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BA 
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RTR 
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05 
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0 
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03 ?2 

1000 

01 
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01 
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24 
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01 


OG 
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01 
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NU 
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0574 

1233 

01 





0575 

0251 

01 





0576 

1052 

01 





0577 

0327 

01 
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/PARNRN ■ -1 
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/* 
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/SAVE THE COUNT AND SWITCH 
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CLA 
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JMP 

I 
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JMP 

I 
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TAD 
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JMP 
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TAD 
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JMS 


PRINT 
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CLA 



0633 

5222 
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X 
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TAD 
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0645 
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DV 
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I 
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i 
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CLA 



0666 

1303 
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7640 
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BG 
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4311 


JMS 


GCHR 
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5265 


JMP 


E2 

0673 

3303 

BG, 

DCA 


BA 

0674 

6201 05 


JMP 

I 

EJ 


/YES 


/IS SION MINUS? 

/EVIDENTLY NOT 

/PUT OUT A MINUS SION 

/TEST FOR MORE 
/TEST FOR INPUT-OUTPUT 

/INPUT, PSEUDO-JUMP 
/OUTPUT ft BLANK 

/CYCLE 

/IGNORE SPACES ON INPUT 


/THE H FIELD PROCESSOR 
/SAME AS XXX, BUT PRINT NEXT 

/- FORMAT CHARACTER 

/OUTPUT ONLY 


/CONVERT 6-BIT TO 8-BIT 

/ADD ON DEVICE NUMBER IN BITS O 


/END THE RECORD 

/TEST PARAMETER FOR O 

/RETURN TO MAIN PROGRAM ON 9 PAR 

/MORE AGRUMENTS RETURN 

/ROUTINE TO END RECORD 


/INPUT OR OUTPUT? 
/OUTPUT 


/CARRIAGE RETURN SEEN - GOODBYE 
/GET A CHARACTER 
/KEEP LOOKING FOR CR 


11 




0675 

0676 

0677 

0700 

0701 

0702 

0703 

0704 

0705 

0706 

0707 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0720 

0721 

0722 

0723 

0724 

0725 

0726 

0727 

0730 

0731 

0732 

0733 

0734 

0735 

0756 

0757 

0760 

0761 

0762 

0763 

0764 

0765 

0766 

0767 

0770 

0771 

0772 

0773 

0774 

©775 

0776 

0777 

1000 


5660 

1363 


El, 

TflD 


<7715 

/7715 TRANSLATES TO 2li 

4240 



JMS 


PRINT 


1362 



TflD 


<7712 


4240 



JMS 


PRINT 

/PRINT CR-LF 

5660 



JMP 

I 

EJ 


0000 


Bfl, 

0 



/THIS IS THE END OF LINE SWITCH 

2303 


BH, 

IS2 


Bfl 

/ENTRY TO LOOK FOR AN END OF LINE 

1375 


BL, 

TflD 


<40 


0361 



AND 


<77 

/KEEP THIS - BL IS REFERENCED B* 

6201 

5711 

05 


JMP 

I 

GCHR 

i 


0000 


GCHR, 

0 



/GET AN INPUT STRING CHARACTER 

7200 


JD, 

CLfl 




1303 



TflD 


Bfl 

/GET EOR SWITCH 

7640 



SZfl 

CLfl 



5305 



JMP 


BL 

MS EOR, RETURN BLANK j 

/****** IF # OF DEVICES IS CfWji. 

7332 



CLfl 

CLL 

CML RTR 

6201 

1765 

05 


TflD 


DV 

/THIS SHOULD BE CHANGED TOO ***> 

4033 



CALL 


0, GEN 10 

/CALL GEN10 WITH OFFSET DEVICE f 

0005 

0360 

06 


AND 


<177 

/STRIP PARITY 

1357 



TflD 


<7763 


7450 



SNA 



/CARRIAGE RETURN? 

5304 



JMP 


BH 


1356 



TflD 


<7655 


7100 



CLL 




1367 



TflD 


<100 

/IS CHAR IN RANGE 237<CHAR<340? 

7420 



SNL 




5312 



JMP 


JD 

/NO - IGNORE 

5305 



JMP 


BL 

/CONVERT TO SIKBIT AND RETURN 

0000 

7655 

7763 

0177 

0077 

7712 

7715 

1000 

01 

SN, 

0 



• 

0241 

01 






0240 

0100 

7740 

0327 

01 






0262 

01 






1225 

01 






0055 

0040 

0547 

01 






1344 

01 
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/EXPERIMENTAL 

0000 


GLST, 

0 



/GET NEXT ARGUMENT ROUTINE 
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1001 

4033 


CALL 


0, CLEAR 

/CLEAR FLOATING AC 


1002 

0006 06 







1003 

2251 


IS2 


IOHCNT 

/ARE WE IN AN ARRAV I/O LOOP? 


1004 

5210 


JMP 


ARMORE 

/VES - GET NEXT ELEMENT 


1005 

2214 


INC 


I OH# 



1006 

4040 


RETRN 


I OH 

/RETURN TO USERS PROGRAM FOR MORE DATA 

100? 

0003 06 







1010 

117? 

ARMORE, 

TfiD 


ARGUMT# 



1011 

1250 


TAD 


IOHINC 

/BUMP ARGUMENT POINTER BV ELEMENT LENGTf 

1012 

5230 


JMP 


IOHBAK 

/RESUME I/O CONVERSIONS WITH UPDATED 

ARi. 




CPAQE 

33 



1013 

0000 

I OH, 

BLOCK 

2 




1014 

0000 







1015 

7640 


S2A CLA 


/IS THIS A SCALAR OR AN ARRAV CALL? 


1016 

5233 


JMP 


IOHAR 

/AN ARRAV CALL 


1017 

7240 


CLA CMA 




1020 

3251 

IOGTAR, 

DCA 


IOHCNT 

/SET UP ARGUMENT COUNT FOR THIS CALL 


**21 

1213 


TAD 


I OH 



^*322 

3223 


DCA 


IOH1 



1023 

7000 

IOH1, 

NOP 



/SET DATA FIELD TO ARGUMENT LIST 


1024 

1614 


TAD I 


I OH# 



1025 

3176 


DCA 


ARGUMT 



1026 

2214 


INC 


I OH# 



1027 

1614 


TAD I 


I OH# 



1030 

317? 

IQHBAK, 

DCA 


ARGUMT# 



1031 

6201 05 


JMP I 


GLST 

/RETURN TO I/O CONVERSION 


1032 

5600 







1033 

2214 

IQHAR, 

INC 


I OH# 



1034 

7330 


CLA CLL 

CML RAR 



1035 

4067 


AND I 


I OH 

/GET TVPE OF ARRAV 


1036 

1013 01 







1037 

0407 







1040 

7106 


CLL RTL 




1041 

7024 


CML RAL 


/FORM A 1 OR A 3, DEPENDING ON ARRAV 

TVf 

1042 

3250 


DCA 


IOHINC 



1043 

7350 


CLA CLL 

CMA RAR 



£jK4 

0407 


AND I 


7 

/GET THE ELEMENT COUNT 


I&45 

7041 


CIA 





1046 

2214 


INC 


I OH# 



104? 

5220 


JMP 


IOGTAR 

/SAVE IT AND GET ARRAV POINTER 


1050 

0000 

I OH INC, 

0 





1051 

0000 

IOHCNT, 

0 





1052 

0000 

CHTVPE, 

0 



/SUBROUTINE TO CLASSIFV CHARACTERS 


1053 

3304 


DCA 


CHCH 



1054 

1304 


TAD 


CHCH 



1055 

137? 


TAD 


<7706 



1056 

7100 


CLL 





1057 

1376 


TAD 


<12 



1060 

7430 


S2L 



/IS THE CHARACTER NUMERIC? 


1061 

5276 


JMP 


JMPOUT 

/VES - TAKE FIRST EXIT 


1062 

2252 


INC 


CHTVPE 



1063 

7200 

CHLOOP, 

CLA 





1064 

6201 05 


TAD I 


CHTVPE 
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1065 

1652 




1066 

2252 


INC 

CHTYPE 

1067 

7450 


SNA 

i 

1070 

5277 


JMP 

JMPOTX 

1071 

1304 


TAD 

CHCH 

1072 

7650 


SNA CLA 


1073 

5276 


JMP 

JMPOUT 

1074 

2252 


INC 

CHTYPE 

1075 

5263 


JMP 

CHLOOP 

1076 

3304 

JMPOUT , 

DCA 

CHCH 

1077 

6201 05 

JMPOTX, 

TAD I 

CHTYPE 

1100 

1652 




1101 

3252 


DCA 

CHTYPE 

1102 

1304 


TAD 

CHCH 

1103 

5652 


JMP I 

CHTYPE 

1104 

0000 

CHCH, 

0 


1105 

0000 

DT, 

0 


1106 

7041 


CIA 


1107 

3304 


DCA 

CHCH 

1110 

4352 

RETT, 

JMS 

LS 

1111 

6211 


TAD 

ACL 

1112 

1775 




1113 

3025 


DCA 

SACL 

1114 

1774 


TAD 

ACM 

1115 

3024 


DCA 

SACM 

1116 

1773 


TAD 

ACH 

1117 

0372 


AND 

<17 

1120 

3023 


DCA 

SACH 

1121 

1023 


TAD 

SACH 

1122 

2772 


DCA 

ACH 

1123 

4352 


JMS 

LS 

1124 

4352 


JMS 

LS 

1125 

6211 


TAD 

ACL 

1126 

1775 




1127 

1025 


TAD 

SACL 

1130 

3775 


DCA 

ACL 

1131 

7004 


RAL 


1132 

1774 


TAD 

ACM 

1133 

1024 


TAD 

SACM 

1134 

3774 


DCA 

ACM 

1135 

7004 


RAL 


1136 

1773 


TAD 

ACH 

1137 

1023 


TAD 

SACH 

1140 

3773 


DCA 

ACH 

1141 

1773 


TAD 

ACH 

1142 

7110 


CLL RAR 


1143 

7012 


RTR 


1144 

0372 


AND 

<17 

1145 

1371 


TAD 

<60 

1146 

4770 


JMS 

PRINT 

1147 

2304 


IS2 

CHCH 

1150 

5310 


JMP 

RETT 

1151 

5705 


JMP I 

DT 


/CHARACTER LIST EXHAUSTED? 

/YES - TAKE LAST EXIT WITH CHAR 

/MATCH? 

/VES - TAKE EXIT WITH AC=0 
/NO MATCH - GO ON TO NEXT CHAR 


/STORE COUNT 
/LEFT SHIFT 1 
/SAVE THE FPAC 


/TRIM AC TO 28 BITS 
/LEFT SHIFT 2 

/ADD THE DSAVE TO THE ACC 


/* 


/* 


/ROTATE 3 RIGHT 


/MAKE DIGIT 

/DUMP IT AND SEE IF ANY MORE 
/LOOP ON COUNT 


IN AC 










* 


1152 

0000 


LS, 

0 


1153 

6211 



TAD 

ACL 

1154 

1775 





1155 

7104 



CLL RAL 


1156 

3775 



DCA 

ACL 

1157 

1774 



TAD 

ACM 

1160 

7004 



RAL 


1161 

3774 



DCA 

ACM 

1162 

1773 



TAD 

ACH 

1163 

7004 



RAL 


1164 

3773 



DCA 

ACH 

1165 

6201 

05 


JMP I 

LS 

1166 

5752 





1170 

0640 

01 




1171 

0060 





1172 

0017 





1173 

0020 





1174 

0021 





.175 

0022 





*176 

0012 





1177 

7706 
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1200 

0000 


PR, 

0 


1201 

1023 



TAD 

SACH 

1202 

3175 



DCA 

N2 

1203 

6201 

05 

PR2, 

TAD 

CH 

1204 

1777 





1205 

7450 



SNA 


1206 

5600 



JMP I 

PR 





CPAGE 22 

1207 

4776 



JMS 

CHTVPE 

1210 

0222 

01 


ERR1 


1211 

7750 



-30; XX 


1212 

0622 

01 




1213 

7767 



-11; 11 


1214 

1446 

01 




1215 

7770 



-10; HH 


"216 

0634 

01 




1217 

7777 



-1; AA 


1220 

1252 

01 




1221 

7764 



-14; LL 


1222 

1253 

01 




1223 

0000 



0; ERR! 


1224 

0222 

01 




1225 

0000 


MR, 

0 


1226 

6201 

05 


ISZ 

N1 

1227 

2775 





1230 

5625 



JMP I 

MR 

1231 

3777 



DCA 

CH 

1232 

5600 



JMP I 

PR 

1233 

0000 


NU, 

0 


1234 

1023 



TAD 

SACH 

1235 

7450 



SNA 


1236 

7201 



CLA IAC 



/LEFT SHIFT THE FPAC 1 


/DONE 


/EXPERIMENTAL 

/GET THE LAST NUMBER ACCUMULATED 
/SAVE IT 


/NOTHING TO DO 

/CLASSIFY CH 
/DIGIT IS ILLEGAL 


/MORE? 

/SEE IF IT GOES TO ZERO 


/NO MORE FIELDS, FIRST WIPE CHAR 
/GO BACK TO FORMAT SCANNER 
/ROUTINE TO FETCH THE ACCOM NUMB 

/IF IT IS ZERO, SET IT TO 1 
/IT IS AND WE DO 
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/GO HOME 


1237 

6201 05 


JMP I 

NU 

1240 

5633 




1241 

0000 

BB; 

0 


1242 

4225 


JMS 

MR 

1243 

1177 


TAD 

ARGUMT# 

1244 

7650 


SNA CLA 


1245 

4774 


JMS 

WH 

1246 

1773 


TAD 

10 

1247 

7640 


SZA CLA 


1250 

2241 


INC 

BB 

1251 

5641 


JMP I 

BB 

1252 

1372 

AA; 

TAD 

<40 

1253 

3327 

LL; 

DCA 

FILL 

1254 

1175 

AX; 

TAD 

N2 

1255 

7041 


CIA 


1256 

3343 


DCA 

CX 

1257 

4241 


JMSKP 

BB 

1260 

5276 


JMP 

AR 

1261 

4331 

AS; 

JMS 

GADR 

1262 

1407 


TAD I 

7 

1263 

7430 


SZL 


1264 

5270 


JMP 

ASNORT 

1265 

7012 


RTR 


1266 

7012 


RTR 


1267 

7012 


RTR 


1270 

0371 

ASNORT; 

AND 

<77 

1271 

4770 


JMS 

PRINT 

1272 

2343 


ISZ 

CX 

1273 

5261 


JMP 

AS 

1274 

4767 


JMS 

GLST 

1275 

5254 


JMP 

AX 

1276 

4766 

AR; 

JMS 

GCHR 

1277 

3330 


DCA 

DH 

1300 

1765 


TAD 

BA 

1301 

7650 


SNA CLA 


1302 

5305 


JMP OK 


1303 

1327 


TAD 

FILL 

1304 

3330 


DCA 

DH 

1305 

4331 

OK; 

JMS 

GADR 

1306 

7430 


SZL 


1307 

5316 


JMP 

ARNORT 

1310 

1330 


TAD 

DH 

1311 

7006 


RTL 


1312 

7006 


RTL 


1313 

7006 


RTL 


1314 

1327 


TAD 

FILL 

1315 

5322 


JMP 

ARCOMN 

1316 

1327 

ARNORT; 

TAD 

FILL 

1317 

7041 


CIA 


1320 

1407 


TAD I 

7 

1321 

1330 


TAD 

DH 

1322 

3407 

ARCOMN; 

DCA I 

7 

1323 

2343 


ISZ 

CX 

1324 

5276 


JMP 

AR 


/MORE? 

/IF ARG=0; 

/END RECORD AND RETURN TO USERS PROGRAM 

/TEST IN OUT SWITCH 

/OUTPUT 

/INPUT 

/SPACE FILL FOR A FORMAT 
/ZERO FILL FOR L FORMAT 


/GET CHARACTER ADDRESS 


/MASK 6 BITS 


/LOOP FOR CHARACTER COUNT 
/GET NEXT ARGUMENT<1F RNV> 


/GET AND SAVE INPUT CHAR 
/CHECK EOR FLAG 


/NOT EOR VET. 

/EOR; USE CORRECT FILL. 


/GET CHARACTER POINTER 
/WHICH HALF? 

/RIGHT HALF 


/ZERO OR SPACE FILL 
/CANCEL ZERO OR SPACE FILL 
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i 


1325 

4767 


JMS 

GLST 

/GET NEXT ARGUMENT <IF RNV> 

1326 

5254 


JMP 

RX 


1327 

0000 

FILL, 

0 

/ZERO OR SPACE FILL 

1330 

0000 

DH, 

0 



1331 

0000 

GflDR, 

0 


/SUBR TO COMPUTE CHARACTER RDDR FOR "R 

1332 

1176 


TAD 

flRGIJMT 


1333 

3341 


DCfl 

RSI 


1334 

1175 


TAD 

N2 


1335 

1343 


TAD 

CX 


1336 

7110 


CLL RAR 



1337 

1177 


TRD 

RRGUMT# 

/AC“WORD POINTER, LINK=LEFT/RIGHT FLAG 

1340 

3007 


DCfl 

7 


1341 

7000 

A51, 

NOP 


/SET UP DATA FIELD OF ARGUMENT 

1342 

5731 


JMPI 

GflDR 


1343 

0000 

CX, 

0 



1344 

7200 

AS3, 

CLR 


/PRINT ASTERISKS FOR WHOLE FIELD SIZE 

^1345 

6201 05 


TRD 

N3 

/GET FIELD SIZE, E OR F 

W34 6 

1764 





1347 

7040 


CNR 



1350 

3343 


DCR 

CX 

/-COUNT 

1351 

5354 


.JNP 

QQ 


1352 

1363 

QQA, 

TRD 

<52 

/PRINT CX ASTERISKS 

1353 

4770 


JMS 

PRINT 


1354 

2343 

QQ, 

IS2 

CX 

/INDEX COUNT 

1355 

5352 


JMP 

QQR 


1356 

4767 


JMS 

GLST 

/TEST FOR MORE 

1357 

5203 


JMP 

PR2 

/RETURN TO FORMAT PROCESSOR, SAME TYPE 

1363 

0052 





1364 

0543 01 





1365 

0703 01 





1j£66 

0711 01 





1367 

1000 01 





1370 

0640 01 





1371 

0077 





1372 

0040 





^073 

0262 01 





W574 

0652 01 





1375 

0435 01 





1376 

1052 01 





1377 

0251 01 
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/EXPERIMENTAL 

1400 

1175 

IN, 

TRD 

N2 

/INTEGER INPUT, GET WIDTH OF FIELD 

1401 

7040 


CMfl 


/l,S COMP TO COUNTER, CR 

1402 

6201 05 


DCR 

CR 


1403 

3777 





1404 

7040 


CMR 



1405 

3275 

VQ, 

DCfl 

WHI 

/-I TO NUMBER ACCUMULATED 

1406 

7040 


CMR 


/-I TO SIGN 

1407 

6201 05 

RRSIGN, 

DCR 

SN 


1410 

3776 





1411 

3023 


DCR 

SRCH 


1412 

6201 05 

RRS, 

IS2 

CR 

/HAS WHOLE NUMBER BEEN ACCUMULATED 

1413 

2777 
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1414 

1415 

1416 

1417 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1470 

1471 

1472 

1473 

1474 

1475 


7410 


SKP 




5233 


JMP 

PRO 



4775 


JMS 

GCHR 





CPRGE 

14 



4774 


JMS 

CHTVPE 

/CLASSIFY CHARACTER 


1431 01 


DIGIT 


/ITS A DIGIT 


7740 


-40; 

RRS 



1412 01 






7725 


-53; 

RRS 



1412 01 






7723 


10 

ID 

1 

RRSIGN 



1407 01 






0000 


0; 

ERR2 



0215 01 






4327 

DIGIT, 

JMS 

DGT 

/ACCUMULATE DIGIT INTO SflCH 


5212 


JMP 

RRS 

/GET NEXT DIGIT 


1023 

PRO, 

TflD 

SflCH 

/WE HAVE AN INTEGER . . . 


2275 


ISZ 

WHI 

/WHAT KIND? 


7402 


HLT 



• 

6201 05 


ISZ 

SN 

/ •' V FORMAT 


2776 






7041 


Clfi 




4067 


DCR I 

fiRGUMT 



0176 






3407 






7200 

IX, 

CL.fi 




4773 


JMS 

GLST 

/INTEGER CONVERSION 


4772 

II, 

JMSKP 

BB 

/TEST MORE AND NON ZERO CURRENT LIST ITt 

5200 


JMP 

IN 

/INPUT 


1274 


TflD 

AB 



3025 


DCfi 

SACL 

/OUTPUT 


1371 


TflD 

<—4 



3275 


DCfi 

WHI 

/—4 


3776 


DCfi 

SN 

/0 


4067 


TflD I 

flRGUMT 



0176 






1407 





• 

7500 


SMfl 


/SET SN 0 FOR PLUS, 1 FOR MINUS 


5265 


JMP 

XZ 

/PLACE MAGNITUDE IN 20 


7041 


Clfl 




6201 05 


ISZ 

SN 



2776 






4033 

XZ, 

CALL 

1, DIV 



0107 06 






6201 05 


fiRG 

TW 



0252 01 






3023 


DCfi 

SflCH 





CPflGE 

4 



4033 


CALL 

0, I REM 

/IREM NEEDS AN ARGUMENT TO IGNORE 


0010 06 






0352 01 

AB, 

11 




0000 

WHI, 

0 
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s 


1476 

6201 05 


DCfi 

I 

SfiCL 

/SAVE REMAINDER 

147? 

3425 






1500 

7040 


CMfi 




1501 

1025 


TfiD 


SfiCL 

/SfiCL«SftCL-l 

1502 

3025 


DCfi 


SfiCL 


1503 

2275 


IS2 


WHI 

/INDEX COUNT 

1504 

1023 


TfiD 


SfiCH 

/AND CHECK NUM FOR 0 

1505 

7440 


SZfl 




1506 

5265 


JMP 


XZ 

/CYCLE 

1507 

1175 

IB, 

TfiD 


N2 


1510 

6201 05 


DCfi 


N3 

/IN CfiSE OF OVERFLOW 

1511 

3770 






1512 

1175 


TfiD 


N2 


1513 

7040 


CMfi 




1514 

1275 


TfiD 


WHI 


1515 

136? 


TfiD 


<4 

/COMPUTE NUMBER OF LEADING BLANKS 

1516 

4766 


JMS 


Sfi 

/PRINT LEADING BLANKS AND SIGN 

1517 

2025 

ID, 

INC 


SfiCL 

/POINT TO DIGIT TO PRINT NEXT 

1520 

6201 05 


TfiD 

I 

SfiCL 

/GET IT 

lt521 

1425 






1522 

7510 


SPfi 



/TERMINATOR? 

1523 

5244 


JMP 


IX 

/YUP 

1524 

1365 


TfiD 


<60 


1525 

4764 


JMS 


PRINT 

/NOPE - PRINT THE DIGIT 

1526 

531? 


JMP 


ID 

/GET NEXT 

1527 

0000 

DGT, 

0 




1530 

3024 


DCfi 


SfiCM 


1531 

1023 


TfiD 


SfiCH 


1532 

7106 


CLL 

RTL 



1533 

1023 


TfiD 


SfiCH 


1534 

7004 


RfiL 




1535 

1024 


TfiD 


SfiCM 


1536 

3023 


DCfi 


SfiCH 


1537 

6201 05 


JMP 

I 

DGT 



1546 5727 

,1,564 0640 01 

p565 0060 

1566 0600 01 

156? 0004 

1570 0543 01 

1571 7774 

1572 1241 01 

1573 1000 01 

1574 1052 01 

1575 0711 01 

1576 0735 01 

1577 0550 01 

END 
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